home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / S / macros.xrc < prev    next >
Text File  |  1995-08-24  |  10KB  |  112 lines
  1. # $VER: macros.xrc 1.2 (24 Aug 1995)
  2. setmacro addx 0 (add x \$colno)
  3. setmacro addy 0 (add y \$lineno)
  4. setmacro amigaguide-mode 0 (source XES:S/amigaguide-mode.xrc)
  5. setmacro arexx-mode 0 (source XES:S/arexx-mode.xrc)
  6. setmacro block-rectangle 0 (topleft-rectangle blocktype vertical bstart cx-x left bend col +1)
  7. setmacro block-region 0 (region-top bstart cx-x goleft bend goright)
  8. setmacro block-type? 0 (force rtf (read-block \$block) flag 5 0 flag 6 0 repeat \$btype (ifelse 5 (ifelse 6 (flag 5 0) (flag 6 1)) (if !6 (flag 5 1))))
  9. setmacro block§ 0 (push block first while !r (if t break up) if r down bstart while !r (down if b break) if r up bend)
  10. setmacro block¶ 0 (push block firstnb while l (up if t break firstnb) bstart down firstnb while l (down if b break firstnb) until !l (up last) bend)
  11. setmacro c-mode 0 (Mx-f source XES:S/c-mode.xrc settvar mode (ANSI C) settvar ccq zM settvar ftab C_tab settvar rbrace C_brace map Mc-t AIC-indent)
  12. setmacro clear-rectangle 0 (dimrec push pos \$dy (push pos overwrite (\$spaces) pop pos down) pop pos)
  13. setmacro closer? 2 (prev2 (\$arg1) (\$arg2) ifelse \$fail (set closer ()) (set closer \\\$currentword) pong 9)
  14. setmacro copy-block 0 (block-type? ifelse 5 copy (ifelse 6 (mark-block copy-rectangle) (lineblock copy)) unblock)
  15. setmacro copy-rectangle 0 (block-rectangle cx-x rx2 XES:Rexx/CopyRec \$colno \$mx unblock)
  16. setmacro cut-block 0 (block-type? ifelse 5 (copy ifelse 6 (mark-block delete-region) bdelete) (ifelse 6 (mark-block kill-rectangle) (lineblock copy)))
  17. setmacro delete-block 0 (block-type? ifelse 5 (ifelse 6 (mark-block delete-region) bdelete) (ifelse 6 (mark-block delete-rectangle) deline))
  18. setmacro delete-rectangle 0 (dimrec push pos \$dy (\$dx (force f del) down) pop pos)
  19. setmacro delete-region 0 (region-top xy-d ifelse y=\$my (\$dx del) (cx-x split cx-x remeol down \$dy deline up last ifelse l deline join))
  20. setmacro delstr 1 (push pos pushvar findstr pushvar repstr findstr (\$arg1) repstr () replace set lastdel (\$arg1) popvar findstr popvar repstr pop pos)
  21. setmacro dimrec 0 (topleft-rectangle xy-d inc dy spaces \$dx)
  22. setmacro do 1 (repeat 1 (\$arg1))
  23. setmacro double-space 0 (ifelse cb x-2 (block§ x-2 unblock pop block))
  24. setmacro erase-word 0 (while c<>32 (overwrite ( )))
  25. setmacro eval-sign 0 (flag 3 1 flag 4 1 repeat (\$z) (ifelse 3 (flag 3 0) (flag 4 0 break)))
  26. setmacro fail? 1 (set fail 1 force rft (\$arg1 set fail 0))
  27. setmacro ffind 1 (findstr (\$arg1) fsearch next)
  28. setmacro find-file 1 (fail? (select (window=\$arg1)) if \$fail (newwindow chfilename \$arg1 rx XES:Rexx/LoadFile))
  29. setmacro fprev 1 (findstr (\$arg1) fsearch prev)
  30. setmacro free-array 1 (get-array sz \$arg1 0 set cnt 0 inc sz repeat \$sz (unset-member \$arg1 inc cnt))
  31. setmacro fsearch 1 (ping 8 while 1 (fail? \\\$arg1 if \\\$fail (pong 8 break) if x=\\\$firstnb (push wordwrap wordwrap off overwrite (\\\$findstr) pop wordwrap when ca prev prev break)))
  32. setmacro fundamental-mode 0 (unsettvar mode unsettvar cr unsettvar ftab unsettvar btab unsettvar rbrace autosplit off wordwrap off setparcol -1 tabstop 4 blocktype line)
  33. setmacro get-array 3 (force f (rx "z='set \$arg1 $' || '\$arg2\$arg3'; z"))
  34. setmacro get-len 2 (force f (rx "z='set \$arg1' length('\$arg2'); z"))
  35. setmacro get-sign 1 (rx "z='set z' sign(\$arg1); z")
  36. setmacro getstring 1 (reqstring (\$arg1) () (OK|Cancel) ())
  37. setmacro goi 0 (col \$indcol)
  38. setmacro goleft 0 (ifelse l (up last) left)
  39. setmacro gom 0 (col \$margin)
  40. setmacro gop 0 (col \$parcol)
  41. setmacro goright 0 (ifelse r (down firstnb) right)
  42. setmacro goto-mark 0 (goto (\$my) col (\$mx))
  43. setmacro gox 0 (col \$x)
  44. setmacro goy 0 (goto \$y)
  45. setmacro gtb-aspell 0 (source XES:S/alphaspell.xrc deflist List1 deflist List2 setgtbgadget as as words 0 setgtbgadget as as k \$k set idx0 0 set idx1 0 set idx2 0 opengtbwindow as as)
  46. setmacro gtb-check 0 (gtb-aspell connectgtbgadget as as words List0 set lst 0 setgtbgadget as as view 0 set wholeword 1)
  47. setmacro gtb-find 0 (source XES:S/find.xrc setgtbgadget rf rf Find \$findstr setgtbgadget rf rf Replace \$repstr opengtbwindow rf rf)
  48. setmacro gtb-guess 0 (force rf (droplist List0) deflist List0 gtb-aspell connectgtbgadget as as words List1 set lst 1 setgtbgadget as as view 1 setgtbgadget as as word \$currentword)
  49. setmacro gtb-local 0 (source XES:S/local.xrc connectgtbgadget ls ls xpkm xpk eval (setgtbgadget ls ls xpkm \$(xpk/\$method/*Value*)) setgtbgadget ls ls xpkp \$password setgtbgadget ls ls ign \$ignorecase set-local opengtbwindow ls ls)
  50. setmacro gtb-margins 0 (source XES:S/margins.xrc setgtbgadget mg mg indcol \$indcol setgtbgadget mg mg parcol \$parcol setgtbgadget mg mg margin \$margin opengtbwindow mg mg)
  51. setmacro gtb-pens 0 (source XES:S/pens.xrc opengtbwindow pp pp)
  52. setmacro gtb-print 0 (source XES:S/print.xrc setheaders setfooters setmargins setmisc opengtbwindow pr pr)
  53. setmacro gtb-windows 0 (source XES:S/windows.xrc connectgtbgadget wn wn lv *Texts* opengtbwindow wn wn)
  54. setmacro html-mode 0 (source XES:S/html-mode.xrc)
  55. setmacro inline? 1 (push pos sety last wprev (\$arg1) if !\$fail (if y<>\$y (set fail 1)) pop pos)
  56. setmacro insert-border 0 (insert (/) while x<=\$margin (insert (*)) insert (/) split first)
  57. setmacro intcmp 2 (smv s \$arg1 sub s \$arg2 get-sign \$s eval-sign)
  58. setmacro justify-comment 0 (first while c<>"/*" right match left set x \$margin sub x \$colno indent . c\$x)
  59. setmacro keypad-move 0 `map nk1 a-down map nk2 down map nk3 s-down map nk4 left map nk5 c-l map nk6 right map nk7 a-up map nk8 up map nk9 s-up map `nk(' keypad-numbers'
  60. setmacro keypad-numbers 0 (unmap nk1 unmap nk2 unmap nk3 unmap nk4 unmap nk5 unmap nk6 unmap nk7 unmap nk8 unmap nk9 unmap nk0 unmap nk. unmap nk+ unmap nk- unmap `nk(' unmap `nk)' unmap nk/ unmap nk*)
  61. setmacro kill-rectangle 0 (copy-rectangle delete-rectangle)
  62. setmacro krc-mode 0 (Mx-f source XES:S/c-mode.xrc settvar mode (K&R C) settvar ccq zM settvar ftab C_tab settvar rbrace C_brace map Mc-t KRC-indent)
  63. setmacro lisp-mode 0 (source XES:S/lisp-mode.xrc)
  64. setmacro loop 1 (while 1 (\$arg1))
  65. setmacro manual-mode 0 (source XES:S/manual-mode.xrc)
  66. setmacro mark-block 0 (goto end col +1 ifelse cb (first downadd sc-2 goto start first) (sc-2 goto start))
  67. setmacro mark-first? 0 (flag 7 0 ifelse y>\$my (flag 7 1) (if y=\$my (if x>\$mx (flag 7 1))))
  68. setmacro mark-point 2 (settvar \$arg1 \$colno settvar \$arg2 \$lineno)
  69. setmacro minus 3 (set \$arg1 \$arg2 sub \$arg1 \$arg3)
  70. setmacro open-rectangle 0 (dimrec push pos \$dy (push pos insert (\$spaces) pop pos down) pop pos)
  71. setmacro outline-mode 0 (source XES:S/outline-mode.xrc)
  72. setmacro plus 3 (set \$arg1 \$arg2 add \$arg1 \$arg3)
  73. setmacro pos 2 (col \$arg1 goto \$arg2)
  74. setmacro pos-line 1 (last ifelse l (col +\$arg1) (indent . -255 indent . (\$arg1) firstnb))
  75. setmacro prev2 2 (ping 9 wprev (\$arg1) ifelse \$fail (wprev (\$arg2)) (sety setx pong 9 wprev (\$arg2) ifelse \\\$fail (goy gox set fail 0) (ifelse y<\\\$y (goy gox) (if y=\\\$y (if x<\\\$x gox)))))
  76. setmacro prevf 1 (findstr (\$arg1) fail? prev)
  77. setmacro programming-mode 0 (source XES:S/programming-mode.xrc)
  78. setmacro quote 1 (block§ indent b -255 goto start push wordwrap wordwrap off findstr (\$arg1 ) repstr () force f replace-block goto start pushvar margin margin 70 reformat popvar margin while cb (first insert (\$arg1 ) down) goto start unblock)
  79. setmacro read-block 6 (intcmp \$arg5 -1 ifelse 3 (set btype 0) (set btype \$arg2))
  80. setmacro region-end 0 (mark-first? if !7 cx-x)
  81. setmacro region-top 0 (mark-first? if 7 cx-x)
  82. setmacro replace-all 0 (bottom last repeat -1 (prev push pos replace pop pos))
  83. setmacro replace-block 0 (goto start sety goto end col +1 if cb last while y>=\$y (prev if cb replace) goto start)
  84. setmacro replace-rectangle 0 (block-rectangle while y>=\$my (prev if cb replace) goto end sc-2 goto start)
  85. setmacro reqclipfile 0 (reqfile (Select Clipfile ...) () \$clipfile setclipfile \$reqresult)
  86. setmacro select-register 1 (reqnumber \$arg1 (Please Select a Register) OK|Cancel \$regmax 0 \$regmax intcmp \$regmax \$reqresult if 3 (inc regmax))
  87. setmacro set-array 3 (set \$arg1\$arg2 (\$arg3))
  88. setmacro setclipfile 0 (settvar clipfile \$arg1)
  89. setmacro setindcol 1 (settvar indcol \$arg1)
  90. setmacro setx 0 (set x \$colno)
  91. setmacro sety 0 (set y \$lineno)
  92. setmacro single-space 0 (ifelse cb x-1 (block¶ x-1 unblock pop block))
  93. setmacro sort-block 0 (bsave t:temp smv o (Fsort FROM T:TEMP TO T:TEMP) block-type? if !\$ignorecase (smv o (\\\$o CASE)) if !5 (goto start smv cs \\\$colno goto end minus w \\\$colno \\\$cs inc w smv o (\\\$o COLSTART \\\$cs WIDTH \\\$w)) title (\$o))
  94. setmacro spaces 1 (set spaces () \$arg1 (set spaces (\\\$spaces )))
  95. setmacro spell-check 0 (writeto t:temp title (Spell Checking ...) execute (AlphaSpell -o t:temp -d $DDIR -Ss t:temp \$Dict) force frt (droplist List0) rx2 XES:Rexx/LoadList List0 t:temp gtb-check)
  96. setmacro string 1 (push pos set string () repeat \$arg1 (force t (scanf c) set string (\\\$string\\\$scanf) force s (col +1) if r break) pop pos)
  97. setmacro subx 0 (sub x \$colno)
  98. setmacro suby 0 (sub y \$lineno)
  99. setmacro symlog-mode 0 (source XES:S/symlog.xrc)
  100. setmacro text-mode 0 (source XES:S/text-mode.xrc)
  101. setmacro topleft-rectangle 0 (mark-point tx ty if x>\$mx (col \$mx settvar mx \$tx) if y>\$my (goto \$my settvar my \$ty))
  102. setmacro unset-array 2 (unset \$arg1\$arg2)
  103. setmacro unset-member 1 (unset-array \$arg1 \$cnt)
  104. setmacro until 2 (while 1 (\$arg1 if \$arg2 break))
  105. setmacro wfind 1 (findstr (\$arg1) wsearch next)
  106. setmacro when 2 (if (\$arg1) (\$arg2 continue))
  107. setmacro wprev 1 (findstr (\$arg1) wsearch prev)
  108. setmacro wsearch 1 (get-len lng (\$findstr) ping 8 while 1 (fail? \\\$arg1 if \\\$fail (pong 8 break) if !l (left when ca right right) repeat \$lng right when ca prev prev break))
  109. setmacro x-distance? 0 (minus dx \$colno \$mx if x<\$mx (neg dx))
  110. setmacro y-distance? 0 (minus dy \$lineno \$my if y<\$my (neg dy))
  111. setmacro yank-rectangle 0 (push pos rx XES:Rexx/yankrec sc-2 pop pos)
  112.